home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / tg_lm_p4.sha < prev    next >
Text File  |  1994-03-01  |  430b  |  14 lines
  1. 10 PRINT "LECTURE MEMO"
  2. 15 CLEAR
  3. 20 RESTORE #
  4. 30 READ #A$,A,B$,B
  5. 35 IF A$="PIECES" AND B$="MACHINES" THEN P=A:M=B:GOTO 60 ELSE IF A$="MACHINES" AND B$="PIECES"  THEN  P=B:M=A:GOTO 60
  6. 40 PRINT "DIM MEMO MAL DEFINI":END
  7. 60 DIM A(M+1,P+1):DIM M(M),P(P)
  8. 70 FOR I=1 TO M
  9. 75 READ #A$
  10. 80 FOR J=1 TO P
  11. 90 PRINT "+";:A(I,J)=VAL(MID$(A$,J,1)):NEXT:PRINT CHR$(13);:NEXT
  12. 100 FOR I=1 TO M:M(I)=I:NEXT
  13. 110 FOR I=1 TO P:P(I)=I:NEXT
  14.